home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / LANG / BASIC / LIB / EVENTSHELL / EXTENSION / ScrapLib (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1995-10-22  |  1KB  |  30 lines
  1.  >ScrapLib
  2.  -----------------------------------------------------------------------
  3.  ScrapFile Handling Routines (version 1.00 22-10-95)
  4.  -----------------------------------------------------------------------
  5.  Public Methods Supported
  6.    FN_shell_Scrap_Init
  7.    PROCshell_ScrapCreateDir
  8.    PROCshell_ScrapRemoveDir
  9.  Private Methods Supported
  10.       None
  11.  Module Global Variables (do not use outside this module!)
  12.    None
  13. *|Start FN_shell_Scrap_Init
  14. _shell_Scrap_Init
  15. *|Stop FN_shell_Scrap_Init
  16. $*|Start PROCshell_ScrapCreateDir
  17. shell_ScrapCreateDir( app_name$ )
  18.  If Scrap directory already exists then delete it, then create
  19.  it again...
  20. shell_FileExists( "<Wimp$ScrapDir>." + app_name$ ) 
  21. ( "Wipe <Wimp$ScrapDir>." + app_name$ + " ~CFR~V" )
  22. ( "CDir <Wimp$ScrapDir>." + app_name$ )
  23. ,#*|Stop PROCshell_ScrapCreateDir
  24. /$*|Start PROCshell_ScrapRemoveDir
  25. shell_ScrapRemoveDir( app_name$ )
  26.  Now tidy up again by deleting the scrap directory
  27. shell_FileExists( "<Wimp$ScrapDir>." + app_name$ ) 
  28. ("Wipe <Wimp$ScrapDir>." + app_name$ + " ~CFR~V")
  29. :#*|Stop PROCshell_ScrapRemoveDir
  30.